#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 능력 Version 1.0
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 능력 메뉴

sub ability{
$wall="ability";
$npc="null";
	if(!$type){

		&abi_up_data;

		$log .= "UA $va G UD $vd G LR $vl G AG $vg G<br>체력·정신을 15000 G 를 사용해 각각의 능력을 올립니다<br>\n";
		$tm=0;
		$type='능력';

		&ability_menu;

	}

	&dat_write;
}

sub ability_menu{

	# 능력 커멘드
	@st		 = ('그만둔다', 'HP-UP', 'MP-UP', 'UA-UP', 'UD-UP', 'LR-UP', 'AG-UP');

	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<select name="cmd" size="1">\n|;
	foreach(0 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

#-------------------------------------------------------------------------------
# 능력 처리
sub ability_exe{

	if(!$tm){

		&abi_up_data;

		if($cmd<=0){
			$log .= "멈추어 둡니다.<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
		}elsif($cmd==1){
			if($gold<15000){
				$log .= "돈이 충분하지 않습니다.<br>\n";
				$tm = $cmd = 0;
				$type='';
				&ability_menu;
			}else{
				$log .= "최대 HP가 3올랐다<br>\n";
				$max_hp+=3;
				$gold-=15000;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}elsif($cmd==2){
			if($gold<15000){
				$log .= "돈이 충분하지 않습니다<br>\n";
				$tm = $cmd = 0;
				$type='';
				&ability_menu;
			}else{
				$log .= "최대 MP가 3올랐다<br>\n";
				$max_mp+=3;
				$gold-=15000;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}elsif($cmd==3){
			if($gold<$va){
				$log .= "돈이 충분하지 않습니다<br>\n";
				$tm = $cmd = 0;
				&ability_menu;
			}else{
				$log .= "공격력이 1올랐다<br>\n";
				$ua++;
				$gold-=$va;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}elsif($cmd==4){
			if($gold<$vd){
				$log .= "돈이 충분하지 않습니다<br>\n";
				$tm = $cmd = 0;
				&ability_menu;
			}else{
				$log .= "방어력이 1올랐다<br>\n";
				$ud++;
				$gold-=$vd;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}elsif($cmd==5){
			if($gold<$vl){
				$log .= "돈이 충분하지 않습니다<br>\n";
				$tm = $cmd = 0;
				&ability_menu;
			}else{
				$log .= "지휘력이 1올랐다<br>\n";
				$lr++;
				$gold-=$vl;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}elsif($cmd==6){
			if($gold<$vg){
				$log .= "돈이 충분하지 않습니다<br>\n";
				$tm = $cmd = 0;
				&ability_menu;
			}else{
				$log .= "민첩력이 1올랐다<br>\n";
				$ag++;
				$gold-=$vg;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}
		}
	}

	&dat_write;

}

# 능력 상승치 계산
sub abi_up_data{

	$va=int($ua*$ua)*100;
	$va=15000 if($va<15000);
	$va=500000 if($va>500000);
	$vd=int($ud*$ud)*100;
	$vd=15000 if($vd<15000);
	$vd=500000 if($vd>500000);
	$vl=int($lr*$lr)*100;
	$vl=30000 if($vl<30000);
	$vl=500000 if($vl>500000);
	$vg=int($ag*$ag)*100;
	$vg=15000 if($vg<15000);
	$vg=500000 if($vg>500000);

	return ($va,$vd,$vl,$vg);

}





1;
